﻿Imports MySql.Data.MySqlClient
Public Class dAnalistas
    Private con As MySqlConnection
    Private comando As MySqlCommand
    Dim lector As MySqlDataReader
    Private lector2 As MySqlDataAdapter
    Private data As DataSet
    'llamar datos de la DB
    Public Function CargarMysql(ByVal Campo As String) As ArrayList
        Dim resultado As ArrayList
        resultado = New ArrayList
        con = Conexion.open()
        comando = New MySqlCommand("Select codigo_tipo_identificacion, numero_identificacion, nombre_analista, direccion, telefono, email from analistas where codigo_analista='" & Campo & "'", con)
        lector = comando.ExecuteReader
        If lector.Read() = True Then
            resultado.Add(lector.GetString(0))
            resultado.Add(lector.GetString(1))
            resultado.Add(lector.GetString(2))
            resultado.Add(lector.GetString(3))
            resultado.Add(lector.GetString(4))
            resultado.Add(lector.GetString(5))
        End If
        Conexion.Close(con)
        lector.Close()
        Return resultado
    End Function
    'propiedades consultar ANAlistas
    Public Function ConsultarMysql(ByVal Campo As String) As DataSet
        Dim consultar As New dConsultar
        Return consultar.Consultar_General(Campo, "Analistas")

        'Dim Resultado As ArrayList
        'Resultado = New ArrayList
        'con = Conexion.open()
        'comando = New MySqlCommand("Select codigo_analista as Codigo, nombre_analista as Analista, Telefono, Direccion, Email from analistas where codigo_analista='" & Campo & "' or nombre_analista like '" & "%" & Campo & "%" & "' and estado_analista='A'", con)
        'lector2 = New MySqlDataAdapter(comando)
        'data = New DataSet
        'lector2.Fill(data)
        'Conexion.Close(con)
        'Return data
    End Function
    'guardar la informacion
    Public Sub GuardarMysql(ByVal Codigo As String, ByVal tipo_identificacion As String, ByVal numero_identificacion As String, ByVal Nombre As String, ByVal direccion As String, ByVal telefono As String, ByVal email As String)
        Dim Resultado As ArrayList
        Resultado = CargarMysql(Codigo)
        con = Conexion.open()
        If Resultado.Count <> 0 Then
            'realizamos la actualizacion
            comando = New MySqlCommand("UPDATE analistas SET nombre_analista='" & Nombre & "', direccion='" & direccion & "', telefono='" & telefono & "', email='" & email & "' " _
                                       & "where codigo_analista='" & Codigo & "'", con)
            comando.ExecuteNonQuery()
        Else
            'realizamos l insercion
            comando = New MySqlCommand("insert into analistas(codigo_analista, codigo_tipo_identificacion, numero_identificacion, nombre_analista, direccion, telefono, email, estado_analista) " _
                                       & "values('" & Codigo & "','" & tipo_identificacion & "','" & numero_identificacion & "','" & Nombre & "','" & direccion & "', '" & telefono & "', '" & email & "','A')", con)
            comando.ExecuteNonQuery()
        End If
        Conexion.Close(con)
        'comando = New MySqlCommand("Inser  * from diagnosticos where codigo_diagnostico like '" & Campo & "%" & "'", con)
    End Sub
    Public Function llenar_cboMysql() As DataSet
        con = Conexion.open()
        comando = New MySqlCommand("select codigo_analista, nombre_analista from analistas where estado_analista='A'", con)
        lector2 = New MySqlDataAdapter(comando)
        data = New DataSet
        lector2.Fill(data)
        Conexion.Close(con)
        Return data
    End Function
End Class
